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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1248+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON ISSUE A OI er te ee eee tart ee eee eT wee ee ee Cree eee ee eer Le 
1333e% CECLE SREAL STATS COMMAND, CHECK FOR ANY OTHER BIT BEING ON, Bite * cc Q= CONTROLLER END IsB_ O= ADD STATUS ‘TE 
1251+* 1370+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 
1252+* CALLING SEQUENCE 1371+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 
1253+* 1372+ 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK’ IL 
1254+% THIS ROUTINE HAS THE FOLLOWING ENTRIES: 1373+ 4= ATTENTION INTERRUPT 4= STG DATA CK IL 
1255+x 1374+ 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 
1256+* --> BAL xi0 OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 1375+ 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 
i257¢% — BAL X101 - Be HOD PARH | PRELOADED IN *romohe | taaets 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA ae 

+* <-- E STEAL STATUS, MOD= 
epee. teaatias Me aoes HAUS SEOHHOMENGDOTGEE SEED ©; «= aReea 1068 dergeteren oe yy7ue Caeser aan 
ry A AND DOES NOT POST INTERRUPT STATUS 
1261¢% ) 002cu4 4424 2854 1380+ MVA OPEN1, RG SET UP BASE ADRS IL 
1262+* RETURN CQNTROL 002C48 4cC28 1381+ Tar (Ra c$) IS CS IN PROGRESS IL 
1263+ | 002C4A 1006 1382+ JOFF inNtEs * NO IL 
1264+ BXs R6, 2) RETURN TO USER NO ERROR OQO2C4C 4CO6A 1383+ TBTS (R4 cE} TURN ON CYCLE STEAL INTER ERROR IL 
1265+* OR B 6{* RETURN AND RETRY ON ERROR QOO2CHE 6FOD 28E8 1384+ MVW R7,CST 8 SAVE CS ERR ISB VALUE, BITS 0-7 L 
ep ee eb el elias A ARI IOI RII II RIOR RII I OK 2 i a do tk noscer Saat 28E9 dee, oye as eal * AND THE COND CODE IL 
BCE CB CD +XIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP ! + IL 
OO2BD2 500A 1269+ J X1I01 ° cs 10's ARE NOT RETRIED 002C58 4Cc24 1387+INTES TBT (Rd XE) TEST EXPECTED ATTEN / ERROR IND’ IL 
1270+* 002C5A 1002 1388+ JOFF inté&t BCH IF NOT EXPECTED IL 
OO2BD4 4CAA 1271+ TBTR Ru, CE RESET CS STATUS INTER ERROR INDICAT. ' 002C5C F304 1389+ CBI 4,R3 IS THIS AN *ATTENTION® INTR IL 
002BD6 4C68 1272+ TBTS 7cS SET "CYCLE STEAL STATUS’ IN PROGRESS | Q02C5E 1006 1390+ JE iftH1 * YES, BCH TO_END INTR SEQUENCE L 
0O2BD8 4020 2CD0O 2AD2 1273+XIOCS MVA Sta: opcB SET UP CONTROL BLOCK FOR SVC CALL 002C60 4C61 I39At+INTET TBTS (R4,ER) SET ERROR ON I/O COMMAND CNTL BIT IL 
OO2BDE 4020 2CD2 O00F 1274+ MVWI EOOEF 1 SET CYCLE STEAL MODIFIER 002C62 5004 1392+ J woh iL 
OO2BE4 4C28 1275+ TBT (BA 4S IS CS IN PROGRESS, ERROR CONDITION 1393+* THE ERROR INTERRUPT USES THE SAME IL 
0O02BE6 1213 1276+ JON 102 YES, BYPASS SAVING 1/0 AD 1394+* ENDING SEQUENCE AS THE NORMAL INTR IL 
O002BE8 6EOD 28C0 1277+X101 MV R6,LSTIO SAVE TAR FOR RETRY IF RE ae ee BD GH HM KH KK KK Ko 2 oe 2 EK KE ERE KEKKEKKKEKEKKK TUADR TOIL 
OO2BEC 4324 282A 1278+ MVA  DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 1397+* IL 
OO2BFO 6D08 2CDO0 1279+ MVW  IODCE,R5 * AND THE FROM ADRS, ALONG WITH 1398+* SOUBROUTINE IL 
OO2BF4 OF10 1280+ MVBI 16,87 * THE NUMBER OF MOVES 1399+* IL 
OO2BF6 2D64 1281+ MVFN SB) §83) MOVE 1 STATUS WORD AND ADJUST 1400+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL "$INTL* IL 
OO2BF8 OBFF 1282+ MVBI 255.8 CLEAR CYCLE STATUS BUFFER 1401+* IL 
OO2BFA 4524 28DA 1283+ MVA_ -CSBOF, RS * TO ALL ONES 1402+* PURPOSE IL 
OO2BFE OF10 1284+ MVBI 16,R7 * 1403+* IL 
002C00 2BAC 1285+ FFN R32 425) * 1404+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 
002C02 4020 28BC 0708 1286+ Mvwr xt 08 , SIOIN OVERLAY OLD CONDITION CODES 1405+* IL 
002C08 CB25 28BE 1287+ | MVWZ $ISB,R ZERO OUT OLD ISB VALUE saGcas CALLING SEQUENCE a 
+ 
002COC 4CAl1 1289+ TBTR (R4,ER RESET ANY ERROR BEFORE 1/0 COMMAND 140 8+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
OO2COE 4CA3 1290+xI02 TBTR (R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 1409 +* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
002C10 4724 2cCC 1291+ MVA OBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 1410+* AFTER THE SPECIAL PART HAS BEEN COMFLETED AND THE IL 
002C14 4CA6 1292+ TBTR (R4,$LE) RESET LEVEL ERROR INDICATOR V41i+% COMMON SECTION IS HANDLED HERE, IL 
002C16 4C62 1293+ TBTS (R4,XT) SET EXPECTED INTR CONTROL BIT 1412+* IL 
002C18 600A 1294+ SVC TART CALL SUPVR FOR I/O COMMAND LP ieee RETURN CONTRQL - 
+ I 
002C1A 4CAT7 1296+ TBIR R4, NI) IS AN INTR EXPECTED 1415+* SVC EXIT RETURN TO USER VIA SUPVR IL 
002C1C 6ACO 0002 1297+ BN R6 , 2) * NO, RETURN TO USER 1416+* IL 
1298+ VY HE RR HR I IOI OR iO dR ok ok kok ik tok ik TD 
1299+t* THE INTR SHOULD OCCUR WHILF SPINNING IN THE NEXT SECTION 002C64 706E 1418+INTOK DC X*706E!* COPY STATUS ANY LEVEL INTO R3 IL 
1300+* 002C66 336A 1419+ SRL R3 POSITION INDICATORS IN R3 IL 
002C20 0D00 1301+ MVBI X*"00O*,R5 SET UP WCRK REG FOR "LOST INTR* 002C68 4424 28B4 1420+ MVA OFfN1,R4 SET UP_BASE ADRS IL 
002C22 4CA3 1302+XI08 MTBTR (Ru ih) HAS INTERRUPT BEEN RECEIVED 002C6C 4C63 1421+INTR1 TBIS (ed 2M) SED INTERRUPT RECEIVED IL 
002C24 1238 1303+ JON Tock * YES, CHECK IF ALL WAS SATISFACTORY OO2C6E 4C28 1422+ TBT R4,CS IS "CS IN PROGRESS* ON IL 
002C26 6002 1304+ SvC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 002C70 1204 1423+ JON nT R2 * YES, BCH AROUND UPDATE iL 
1305+* SUPVR WILL RETURN HERE 002C72 C328 28BD 1424+ MVB R3, $I1OIN+1 SAVE £NTERRUPTING CC COD L 
002C28 7DA1 0001 1306+ AWL 4.R5 ADVANCE TIMF OUT COUNT 002C76 6FOD 28BE 1425+ MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS IL 
002C2C 18FA 1307+ JNZ x08 BCH IF TIME OUT NOT REACHED O02C7A Vise ne Bae IL 
002C2E 4C61 1308+ TBTS (R4,ER) SET ON ERROR CONTROL BIT 1427+* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 
002C30 68D2 0000 1309+ R65 * ERR *NO INTERRUP OO2C7A 3521 1428+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 
13114 KE Oo io oR a ao io took gcd ick 3P ER76** Q002C7C 0501 1429+ ABI 1,R5 * IN 'I* BIT IL 
1312+% OO2C7E CD24 28F0 1430+ CW $ENTL, RS IS THIS THE CORRECT INTR LEVEL IL 
1313¢* SUBROUTINE 002C82 1002 1431+ JE INTE3 * YES, GO EXIT THIS LEVEL IL 
13144% 002C84 4C66 1432+ TBTS (R4,$LE) SET INTR LEVEL FRROR CONTROL BIT IL 
1315+% I/O EXECUTE ERROR HANDLING ROUTINE 002C86 4C61 1433+ TBTS (R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 
1316+* 002C88 4CA2 14344INTR3 TBTR (R4,XI WAS INTERRUPT EXPECTED L 
1317+* PUREOSE 002C8A 1204 1435+ JON NTRX * YES, EXIT OFF THIS INTR LEVEL IL 
1318¢* 002C8C 4Cé60 1436+ TBTS (R4,MI) * NO, SET MYSTERY INTR CONTROL BIT IL 
1319+ THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE QO2C8E F304 1437+ CBI 4,R3 ATTENTION INTERRUPT? IL 
1320 +4% PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 002C90 1001 1438+ JE LATRX IL 
1321+* SUPERVISOR AND IT WAS NOT ACCEPTED. 002C92 4C6C 1439+ TBTS te NG) ERROR, UNEXPECTED INTERRUPT IL 
13224* 002C94 6006 T4G04INTRX SVC xIf IT THIS LEVEL VIA SUPVR TO PGM _ IL 
1323+* CALLING SEQUENCE tee tr enene Stereo ne eterna ss eereee (aah ees eet EK KKK BE ER7G6 *X 
1324+4% U4 34+ 
4325+ SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 1444t+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
13064% 1445+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
132744 RETURN CONTROL 1446 es RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
+ 
1329¢* B R6) * RETURN TO USERS ERROR HANDLER 1448+* 
1330+* oe 002C96 4ca4 1449+XIOCCK TBTR (R4,XE) WAS AN ERROR EXPECTED 
ARREST ELSES CSL ELS S CST CSCS CSCC SS SSS CSS CSSLC SLOSS SLCC CSCS CS SSS CSCC SCS Ss 2 To Q002C98 6ACO 0002 1450+ BN ara s * YES, EXIT THIS ROUTINE 
13324* 002C9C 4CA8 1451+ TBTR (R4,CS) WAS AObTO CS IN EROGRESS 
1333+* CC Q= DEVICE NOT ATTACHED QO2CIE 1006 1452+ JOFF xX10CV * NO, CONTINUE CHECKING 
1334+4* FOR 1= DEVICE BUSY OO0O2CAO 4C2A 1453+ TBT gra CE) Is CS IN AN ERK CONDITION 
1335+* I/0 2= DEVICE BUSY AFTER RESET QO2CA2 1002 1454+ JOFF toto * NO, BCH 
1336e* $= CCHMAND REJECT 002CA4 68D2 0000 1455+ B R6) * CS _ ERROR 
1337+* u= INTERVENTION REQUIRED OO2CA8 4C69 1456+XIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 
1338¢* S= INTERFACE DATA CHECK OO2ZCAA 5601 1457+ BXS epee) GO TO USER 
1339+ 6= CONTROLLER Busy” QQO2CAC 4C21 1458+XIOCV TBT R4, ER) WAS ERROR INTR CONTROL BIT ON 
1340+* 7= 1/0 COMMAND EXCEPTED OOZCAE 100B wicoce JOFF IOCX * NO, EXIT THIS ROUTINE 
+ 
002C34 706£ 1342+XIOER DC X*706E! COPY STATUS ANY LEVEL INTO R3 O002CBO C320 28BD 1461+ MVB 8 $IQIN#1,R5 GET LAST INTR CC CODE 
002C36 336A 1343+ SRL 13,83 POSITION CC CODE TO BITS 13-15 O02CB4 F502 1462+ BI Ze e IS DHIS Cc=2 
002C38 C328 28BC 1344+ MVB -R3 aa * PUT IN LOG OUT AREA Q02CB6 68D1 0000 1463+ BNE {i ob * NO, BCH TC ERROR HANDLER 
002C3C 68D2 0000 1345+ B 26) * RETURN TO USER ERROR HANDLER OO2CBA C520 28BE 1464+XIOCQ MVB R5 GET LAST ISB DATA BYTE AND IF CS 
a al ede gO OG dak tok doko tote kok took tok tok | A PR 76 ** nieces eae app sees BN X1OCSau * AVAILABLE, GO ANC GET IT 
+x IL é + ERROR 
1349+* SUB-ROUTINE TL 002CC6 CB25 28B8 1467+XI0CCX MVHZ §bah3 R3 CLEAR OUT OPTION 3 CNTL BITS 
13504% IL OO2CCA 5601 1468+ BXS (R6,2§ RETURN TO USER VIA REG 6 
1351+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL *$INTL'* TL 1469+* 
13524 IL 1470+% I/O PARAMETER LIST : 
1353+* PURPOSE IL La7i+* 
13544* IL QO2cCC 19D0 1472+IOBLK DC A (DEVALD) ADRS OF DEVICE ADRS 
4355+4* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR’ IL Q02CCE 2C34 1473+ DC A (XTOER) ERROR ROUTINE ADRS 
1356+* OR THE INTERRUFTING CONDITION CODE DOES NOT AGREE WITH THE IL GO02CDO 0000 14744TODCB DC A (#—-* DCB_ ADES OR LEVEL & INTR 
1357+* EXPEGTED CODE. IL GO2ZCD2 0000 1475+IOMOD DC A +4 MODIFIER 
13584% IL 002CD4 0000 1476+ DC A (*-* ADRS OF LAST SVC CALL 
1359+% CALLING SEQUENCE IL 002CD6 0000 aoe ORSP DC A (*-* SECOND WCRD OF LAST IDCB 
+ IL 
1361 +% SUPVR WILL ENTER WHEN AN ERROR CCCURS ON AN I/O INTERRUPT IL sel INTERKUPT CONTROL BLOCK FOR I/0 COMMANDS 
+ I 
1363+* RETURN CONTROL IL Q0O02CD8 19D0 T4814+INTBL DC A DENADD} ADRS OF DEVICE ADRS 
13eu%e He $RaERR 2ctt igss Be ASHER TIRERRUEE SEneTapESh OSS 
+% SVC EXIT RETUR é 
wees re ae eee Ure 7 O0ZCDE 0003 1484+4INTCC DC x *00038 INTERRUPT CODE EXPECTED 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 - LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1486 + OR RO OI OOO OO Gi gio OR oki iakak dokoiotok kick 11M AY 76 ** OOZE64 40D4OLOKO4OXOeO4OY oe DC cf 8 
1487+* + 
8+* SUBRO 002E8C 0000 1605+BUFPT DC A (*-* 
a wie gases get tegerecaes Be Neaga 
490+* Cc ONTROL BLCCK & RE DEVICE + 
Meas SUR eee CPR, See Rene 002E92 0101 1608+FAKETU DC xX#01018 
1492+* PURPOSE OOF1FO 1609#PIDMSG10 EQS X‘FIFO* 
149 34% 000080 16 10+BIT0080 E60. x*00808 
149 44% TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
eb oe PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE Moet DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
+ ; 
149 74+* SU Sere ee 0O2E94 0030 1614¢HEBLK DC 8) NUMBER OF BYTES TO CONVERT 
1498+* CALLING SEQUENCE 0O02E96 28BA 1615+ DC A 31 TD) FROM ADRS 
1499+4* 0O02E98 181A 1616+ DC TUWORK) AND THE TO ADRS 
1500+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
1501+* 000000 1619 END 
1502+* --> BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT 1/0 BLK 
150 3+% -~-> BAL $CONP,R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
1505¢* RETURN CONTROL 
1506+* 
1507+* BXS R6,2) RETURN TO USER VIA REG 6 IF OKAY 
130 8++ OR B R6f * IF THE DEVICE COULD NOT BE CONNFCTED | 
t 
V5 1 OH A HK RH a He a KK eK 2h Ok 2 a a a ee 2 AC 2 2 a a 2 8c fe cc 2h 2k ake i 2c a a a a af 2 fe 2k ake ak ae af ae 2 a ae ok kc 
0O02CEO OFO6 15114#$CONC MVBI be RT NUMBER OF BYTE TO CLEAR 
OO2CE2 0OBOO 1512+ MVBI * AND THE DATA TO USE 
OO2CEY 4524 28C2 1513+ MVA DEVI, * ALONG WITH THE ADRS TO USE 
002CE8 2BAC 1514+ FFN £5) * 
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O0O2CF2 6016 1517+ SVC  REQSD * 
QO2CF4 OFFF 1518+ MVBI —-1,R7 SET UP DELAY FOR IBIS 
002CF6 BFFF 1519+ ICT *-R7 * AND DEGREMENT IT DOWN 
OO2CF8 4724 2CD8 1520+ MVA  IWTBL,R7 SET R7 TO CONTROL BLOCK AND 
OO2CFC 6014 1521+ SVC CICB * CONNECT IT TO THIS DEVICE 
OO2ZCFE 6ADO 0000 1322+ BN (R6) * ERROR RETURN TO USER 
002D02 8828 28F0 2CDO0 1524+$CONP MVW $INTL,IODCB PUT IN LEVEL & INTR PARAMETER 
002D08 4724 2ccC 1525+ MVA  IOBLIK SET R7 TO CONTROL BLOCK TO PREPARE 
002D0C 4020 28BC 0708 1526+ MVWI X'0708*',$I0IN INITIALIZE CONDITION CODE STORAGE 
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002D1A 600C 1529+ Svc PREP * AND CALL ON SUPVR 
002D1iC 5601 1530+ BXS (R62) RETURN TO USER 
15320 IO IO RIO IGOR GIO IGG GG AG GGG iii kik 4k 0 6 A PR76** 
1533+% 
1534+% SUBROUTINE 
1536+* DISCCNNECT THE INTERRUPT CONTROL BLCCK AND LOG ERRORS 
1538+* PURPOSE 
1539+* 
1540+4* DISCONNECT THE INTERRUPT CONTROL BLOCK TC THIS DEVICE AND 
15414#* SET THE *NO GOOD* CONTROL HEN LOG THE DATA THAT HAS 
1b42+4 BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
+ 
1o4ues CALLING SEQUENCE 
+ 
1346 + THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
1548+* --> B ERR$ SET "NG* BIT AND CONVERT DATA TO LOG 
1b 4ges -~-> B CONX RETURN TO MDI SUPERVISOR TO TEST STS 
+ 
15514+* RETURN CONTROL 
1552+% 
1553+% B TURTN* RETURN TO MDI 
1od4+* OR B (R6).* IF THE DEVICE COULD NOT BE CONNECTED 
+ 
I de al Pa a a Ne lhl aac ccc gg ag lk el ala a 
002D1E 4020 1818 8000 1557+$ERRS MVWI Xx? 8000" TUSTATUS SET ON ‘NO GOOD* STATUS BIT 
002D24 4724 2E94 1558+ MVA HEBLK, RY GET ADRS OF CONTROL BLOCK 
002D28 601A 15594 SVC TOE. CONVERT HEX TO EBC VIS DCP 
0U2D2A O0D03 15604#$PRNT MVBI 3,R5 
002D2C 4324 181A 1561+ MVA  TOWCRK,R3 SET UP BUFFER STORAGE 
002D30 6BOD 2E8C 1562+ MVW R3,BUFPT 
002D34 4124 2DBC 1563+ MVA  LifiE1,R1 
002D38 OFO4 1564+ MVBI 4,R7 
002D3A OE08 1565+ MVBL 8-6 
002D3C 2B24 1566+MVBUF MVEN £83). (R1) 
002D3E OFO4 1567+ MVBI 4) R 
002D40 OA4O0 1568+ MVBI xX 4o',R2 
002D42 C258 1569+ MVB 2 (Ri + 
002D44 BEFB 1570+ JCT MVBOF,R6 
002D46 OEFO8 1571+ MVBI 8,R6 
002D48 7921 002C 1572+ AWI «6 GR 1 
002D4C BDF? 1573+ JCT MVBUF,R 
OO2D4E 4020 1802 F1FO 1574+ MVWI at PID+2 
002D54 4020 19B8 2E92 1575+ MVA FAKETU,@DCADD1 
002D5A 4020 19BA 2E8E 1576+ MVA  DC2PT,@DCADD2 
002D60 402C 19C4 0080 1577+ OWL BITOO80, SUPSTAT 
002D66 4324 28BA 1578+ MVA $TULD,R3 SET UP BUFFER STORAGE 
O0O2ZD6A 6F13 18BA 1579+ BAL TUNSCHERE, R7 GO TO MESSAGE WRITER 
+ 
002D6E 158 1+$CONX EQU 
OO0O2D6E 8028 28C3 28F9 1582+ MVB SCTID+1 SVCAL+*3 SETUP CURRENT CYLINDER NUM 
O0O2D74 4724 28F6 1583+ MVA SVCAL,R? ADDR OF RELEASE PARM LIST 
002D78 6017 1584+ SVC RELSD RELFASE CONTROL 
OO2D7A C720 19D0 1585+ MVB DEVADD, R7 GET DEVICE ADDRESS FROM MDI 
O0O2D7E 6013 1586+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
002D80 6812 28F2 1387+ B TURTN* RETURN TO MDI SUPERVISOR 
+ 
002D84 0007 1589tBEGIN DC A (0007 NUMBER OF LINES TO PRINT 
v02D86 0008 1590+ DC A (0008 LINE LENGTH = 8 CHAR 
002D88 5C5C40C1C2D6D9E3 1591+ DC Clxx ABORT! 
002D90 0028 1592+ DC A (0040) LINE LENGTH = 40 CHAR 
002D92 E3E4COCH4OC9IDECID 1593+ DC C'TUID LOIN ISB INST DEV1 DEV2 DEV3 DEV4 ° 
OO2DBA 0028 1594+ DC A (0040) LINE LENGTH = 4O CHAR 
OO2DBC 4O404040404040404 15954+LINE1 DC Cc t 
OO2DE4 0028 1596+ DC A (0040) LINE LENGTH = 4O CHAR 
OO2DE6 C3D5E3D340C4C3C2F 1597+ DC C'CNTL DCB2 DCB3 DCB4Y DCB5 CHAD BYCT ADRS * 
OO2ZEOE 0028 1598+ DC A (00,40) LINE LENGTH = CHAR 
002E10 40404040404040404 15994LINE2 DC Cc t 
002F38 0028 1600+ DC A (0040) LINE LENGTH = 4O CHAR 
OO2E3A DIEZCICKHOC3E2Z60F 1601+ DC C*RSID CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 CS-8 ! 
0O2E62 0028 1602+ DC A (0040) LINE LENGTH = 40 CHAR 
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ADDRESS. HEX LOCATION (000028B8) IN CSECT(I4850 ) LENGTH(2) 
ADDRESS. (HEX LOCATION (0000 196£) IN CSECT(I4850 ) LENGTH(1) 
ADDRESS. HEX LOCATION(00001800) IN CSECT (14850 ) LENGTH (1) 

71 72 73 74 75 76 77 78 9 

80 81 82 83 84 85 86 87 88 

89 90 91 92 93 94 95 96 97 

98 99 100 101 #102 103 #104 + #+105 #106 

107, 108 #109 110 #1417 «©9112 1574 
{BBSOLUTE. HEX VALUE (0000F1FO) 
ABSOLUTE. HEX VALUE (0000000C) 
ADDRESS, HEX LCCATION(00002B02) IN CSECT(I4850 ) LENGTH(2) 
ABSOLUTE. HEX VALUE (00000017) 
ABSOLUTE. HEX VALUE (00000016) 
ABSOLUTE. HEX VALUE (000000 13) 
ADDRESS. HEX LOCATION(O00002AB2) IN CSECT(I4850 ) LENGTH(2) 
ADDRESS. HEX LOCATION (000028C2) IN CSECT(I4850 ) LENGTH(2) 
1044 1191 1192. 15 

ADDRESS. HEX LCCATION (00002 ac2) IN CSECT(I4850 ) LENGTH(2) 
800 801 802 803 #870 71 872 873 ~~ 889 

890 962 963 964 965 981 982 1184 

ABSOLUTE. HEX VALUE (00000004) 

ADDRESS. HEX LOCATION(000019C4) IN CSECT(I4850 ) LENGTH(1) 
ADDRESS. HEX LOCATION (000028F6) IN CSECT(I4850 ) LENGTH(2) 
1516 1582 1583 
ADDRESS. HEX LOCATION (000018BA) IN CSECT(I4850 ) LENGTH(1) 
ADDRESS. HEX LOCATION (0000189A) IN CSECT(I4850 ) LENGTH(1) 
803. 87 8 882 64 65 973 

ADDRESS. HEX LOCATION (0000189C) IN CSECT(I4850 ) LENGTH(1) 
ADDRESS. HEX LCCATION (000028 F2) IN CSECT(I4850 ) LENGTH(2) 
ADDRESS. X LOCATION(00001818) IN CSECT(I4850 ) LENGTH(1) 
ADDRESS, HEX LOCATION (0000181A) IN CSECT(I4850 ) LENGTH(1) 
ADDRESS. HEX LCCATION(00002902) IN CSECT(I4850 ) LENGTH{4) 
ADDRESS. HEX LOCATION (00002956) IN CSECT(I4850 ) LENGTH(4) 
ADDRESS. HEX LOCATION {000029EC) IN CSECT(I4850 ) LENGTH(4) 
ADDRESS. HEX LCCATION (000029E2) IN CSECT (14850 LENGTH (4) 
866 87 7 892 894 897 

ADDRESS. HEX LOCATION (000029EF8) IN CSECT(I4850 ) LENGTH (4) 
ADDRESS. HEX LOCATION(00002A78) IN CSECT (14850 ), LENGTH (4) 
958 967 969 976 978 80 984 986 989 

ADDRESS. HEX LOCATION (OOQO2A7E) IN CSECT(I4850 ) LENGTH(4) 
ADDRESS, HEX LCCATION(OQOQO2AF2) IN CSECT({I4850 ) LENGTH(2) 
970 971 972 97 974 7 1202 
ADDRESS. HEX LOCATION(OQOO2AE2) IN CSECT(I4850 ) LENGTH(2) 
ABSOLUTE. HEX VALUE(00000024) 
1387 ©1649 
ABSOLUTE. HEX VALUE (00000022) 

ADDRESS. HEX LOCATION (0QQQ2ECE) IN CSECT(I4850 ) LENGTH(4) 
1185 1188 1193 1200 1203 1206 1209 
ADDRESS. HEX LOCATION (00002C96) IN CSECT(I4850 ) LENGTH(2) 
ADDRESS. HEX LOCATION(00002CA8) IN CSECT(I4850 ) LENGTH(2) 
ADDRESS. HEX LOCATION(00002BD8) IN CSECT(I4850 ) LENGTH(6) 
;ADBRESS. HEX LOCATION(0QO02CAC) IN CSECT(I4850 ) LENGTH (2) 
ADDRESS. HEX LOCATION(00002CC6) IN CSECT(I4850 ) LENGTH(4) 
ADDRESS. HEX LOCATION(00002C34) IN CSECT(I4850 ) LENGTH(2) 
ADDRESS HEX LOCATION (O0002BE8) IN CSECT(I4850 ) LENGTH(4) 
ADDRESS. HEX LOCATION(O00002COE) IN CSECT(I4850 ) LENGTH(2) 
{ABDRESS. HEX LOCATION (00002C22) IN CSECT(I4850 ) LENGTH{2) 
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